home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 014 / bacopy.arc / BACOPY.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-07-18  |  5.7 KB  |  114 lines
  1. 100  'BAC.BAS: A program to create BAC.COM to backup files from either hard
  2. 101  'disks or floppy diskettes.  From PC Magazine Vol 4 No 17 August 20,
  3. 102  '1985 by John Dickinson.
  4. 110  CLS:PRINT "Checking Data Statements; please wait ....."
  5. 120  FOR B=1 TO 87
  6. 130  FOR C=1 TO 17
  7. 140  READ A$:IF C<17 THEN 160
  8. 150  Z#=Z#+VAL(A$)
  9. 160  NEXT:NEXT
  10. 170  IF Z#=105881 THEN RESTORE:GOTO 200
  11. 180  PRINT "Error!  Check the last number in"
  12. 190  PRINT "each data statement; then redo":END
  13. 200  FOR B=1 TO 87
  14. 210  FOR C=1 TO 16
  15. 220  READ A$:TTL=TTL+VAL("&H"+A$)
  16. 230  NEXT
  17. 240  READ S:IF S=TTL THEN 270
  18. 250  PRINT "Data error in line";B*10+330
  19. 260  PRINT "Check figures and redo.":END
  20. 270  TTL=0:NEXT:RESTORE
  21. 280  OPEN "BAC.COM" AS #1 LEN=1:FIELD #1,1 AS D$
  22. 290  FOR B=1 TO 87
  23. 300  FOR C=1 TO 16
  24. 310  READ A$:LSET D$=CHR$(VAL("&H"+A$))
  25. 320  PUT #1:NEXT:READ DUMMY$:NEXT:CLOSE
  26. 330  PRINT "BAC.COM created."
  27. 340  DATA E9,97,02,42,41,43,6F,70,79,20,28,43,29,20,31,39,1246
  28. 350  DATA 38,35,2C,20,44,69,63,6B,69,6E,73,6F,6E,20,41,73,1327
  29. 360  DATA 73,6F,63,69,61,74,65,73,20,49,6E,63,2E,0D,0A,24,1278
  30. 370  DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
  31. 380  DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
  32. 390  DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
  33. 400  DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
  34. 410  DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
  35. 420  DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
  36. 430  DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
  37. 440  DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
  38. 450  DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
  39. 460  DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
  40. 470  DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
  41. 480  DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
  42. 490  DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
  43. 500  DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
  44. 510  DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,0
  45. 520  DATA 00,00,00,00,00,00,00,00,00,00,61,62,63,64,65,66,597
  46. 530  DATA 67,68,69,6A,6B,6C,6D,6E,6F,70,71,72,73,74,75,76,1768
  47. 540  DATA 77,78,79,7A,2C,3B,3D,09,41,42,43,44,45,46,47,48,1203
  48. 550  DATA 49,4A,4B,4C,4D,4E,4F,50,51,52,53,54,55,56,57,58,1288
  49. 560  DATA 59,5A,20,20,20,20,00,00,00,00,0A,0D,42,41,43,6F,639
  50. 570  DATA 70,79,20,45,72,72,6F,72,20,2D,20,24,43,6F,72,72,1338
  51. 580  DATA 65,63,74,20,53,79,6E,74,61,78,20,69,73,3A,0D,0A,1328
  52. 590  DATA 0A,42,41,43,6F,70,79,20,5B,64,3A,5D,5B,73,6F,75,1360
  53. 600  DATA 72,63,65,5F,70,61,74,68,5D,73,6F,75,72,63,65,5F,1683
  54. 610  DATA 66,69,6C,65,6E,61,6D,65,5B,2E,65,78,74,5D,20,5B,1523
  55. 620  DATA 64,3A,5D,5B,74,61,72,67,65,74,5F,70,61,74,68,5D,1606
  56. 630  DATA 24,46,69,6C,65,20,4E,6F,74,20,46,6F,75,6E,64,24,1333
  57. 640  DATA 4F,70,65,6E,69,6E,67,20,53,6F,75,72,63,65,20,46,1479
  58. 650  DATA 69,6C,65,24,43,72,65,61,74,69,6E,67,20,54,61,72,1490
  59. 660  DATA 67,65,74,20,46,69,6C,65,24,21,21,0A,0A,0D,54,61,1052
  60. 670  DATA 72,67,65,74,20,44,69,73,6B,20,69,73,20,46,75,6C,1440
  61. 680  DATA 6C,0D,0A,0A,49,6E,73,65,72,74,20,4E,65,77,20,44,1200
  62. 690  DATA 69,73,6B,20,61,6E,64,20,50,72,65,73,73,20,5B,45,1415
  63. 700  DATA 6E,74,65,72,5D,07,24,0A,0A,0D,20,2E,20,2E,20,2E,844
  64. 710  DATA 20,41,62,6F,72,74,69,6E,67,0A,0D,0D,24,20,2E,20,1036
  65. 720  DATA 2E,20,24,42,41,43,6F,70,69,65,64,20,74,6F,20,2E,1178
  66. 730  DATA 20,2E,20,24,0A,0D,24,0D,0A,4E,6F,20,46,69,6C,65,833
  67. 740  DATA 73,20,4E,65,65,64,65,64,20,74,6F,20,62,65,20,42,1316
  68. 750  DATA 41,43,6F,70,69,65,64,0D,0A,24,8D,16,03,01,B4,09,1076
  69. 760  DATA CD,21,BE,80,00,8A,0C,32,ED,E3,61,8B,D1,46,8B,FE,2128
  70. 770  DATA FC,AC,57,8D,3E,2A,02,51,B9,1F,00,F2,AE,E3,09,BB,1894
  71. 780  DATA 1F,00,2B,D9,8A,87,47,02,59,5F,AA,E2,E4,8B,CA,BA,1972
  72. 790  DATA 02,00,8D,1E,30,01,B0,20,BF,81,00,F3,AE,8B,F7,4E,1631
  73. 800  DATA 41,E3,22,8B,FB,8B,C1,AA,AC,3C,20,74,01,AA,E0,F8,2241
  74. 810  DATA 29,0F,E3,11,FE,0F,8B,FE,4F,41,4A,83,FA,00,74,05,1682
  75. 820  DATA 83,C3,4D,EB,D6,80,3E,30,01,00,77,07,8D,16,7C,02,1506
  76. 830  DATA E9,0C,02,8D,36,30,01,AC,32,E4,8B,FE,03,F8,4F,8B,1803
  77. 840  DATA C8,B0,5C,FD,F2,AE,75,06,83,C7,02,EB,0F,90,83,C7,2316
  78. 850  DATA 01,80,3E,32,01,3A,75,04,8D,3E,33,01,89,3E,CA,01,1078
  79. 860  DATA FC,8D,36,7D,01,AC,3C,00,74,24,32,E4,03,F0,4E,AC,1728
  80. 870  DATA 8B,FE,3C,5C,74,11,80,3E,7D,01,02,75,07,80,3E,7F,1437
  81. 880  DATA 01,3A,74,03,B0,5C,AA,89,3E,CC,01,EB,07,90,C7,06,1611
  82. 890  DATA CC,01,7E,01,B8,FF,FD,8D,16,65,06,2B,C2,A3,66,02,1798
  83. 900  DATA 33,C0,B4,1A,8D,16,D2,01,CD,21,8D,16,31,01,B4,4E,1532
  84. 910  DATA B9,00,00,CD,21,73,07,8D,16,D1,02,E9,81,01,C6,06,1486
  85. 920  DATA 68,02,00,8D,36,F0,01,8B,3E,CA,01,56,B9,0D,00,F3,1473
  86. 930  DATA A4,8B,3E,CC,01,5E,B9,0D,00,F3,A4,B4,1A,32,C0,8D,1858
  87. 940  DATA 16,FE,01,CD,21,B4,4E,8D,16,7E,01,B9,00,00,CD,21,1486
  88. 950  DATA 72,2B,8D,36,EA,01,AD,8B,D0,8D,36,16,02,AD,3B,D0,1766
  89. 960  DATA 77,1B,75,13,8D,36,E8,01,AD,8B,D0,8D,36,14,02,AD,1620
  90. 970  DATA 3B,D0,77,09,EB,01,90,E8,40,01,E9,F8,00,B4,3D,8D,1935
  91. 980  DATA 16,31,01,B0,00,CD,21,A3,CE,01,73,0D,8D,16,E0,02,1373
  92. 990  DATA C7,06,CE,01,00,00,E9,06,01,33,C0,B4,3C,8D,16,7E,1424
  93. 1000  DATA 01,33,C9,CD,21,A3,D0,01,73,0D,8D,16,F4,02,C7,06,1605
  94. 1010  DATA D0,01,00,00,E9,E8,00,8D,36,31,01,AC,3C,00,74,08,1275
  95. 1020  DATA 8A,D0,B4,02,CD,21,EB,F3,B4,09,8D,16,5D,03,CD,21,1930
  96. 1030  DATA B4,3F,8B,0E,66,02,8B,1E,CE,01,8D,16,65,06,CD,21,1384
  97. 1040  DATA 3D,00,00,74,53,8B,C8,3B,0E,66,02,74,05,C6,06,68,1205
  98. 1050  DATA 02,01,51,B4,40,8B,1E,D0,01,8D,16,65,06,CD,21,59,1303
  99. 1060  DATA 3B,C1,74,2B,E8,B3,00,B4,41,8D,16,7E,01,CD,21,8D,1736
  100. 1070  DATA 16,09,03,B4,09,CD,21,B4,08,CD,21,3C,0D,75,F8,B9,1510
  101. 1080  DATA 02,00,8D,16,74,03,B4,09,CD,21,E2,F6,E9,EF,FE,80,2037
  102. 1090  DATA 3E,68,02,01,74,02,EB,98,B4,57,B0,00,8B,1E,CE,01,1493
  103. 1100  DATA CD,21,B4,57,B0,01,8B,1E,D0,01,CD,21,E8,6B,00,8D,1778
  104. 1110  DATA 16,63,03,B4,09,CD,21,8D,36,7E,01,AC,3C,00,74,08,1229
  105. 1120  DATA 8A,D0,B4,02,CD,21,EB,F3,8D,16,74,03,B4,09,CD,21,1953
  106. 1130  DATA C6,06,69,02,01,33,C0,B4,1A,8D,16,D2,01,CD,21,B4,1553
  107. 1140  DATA 4F,B9,00,00,CD,21,73,03,EB,04,90,E9,90,FE,80,3E,1824
  108. 1150  DATA 69,02,01,74,08,8D,16,77,03,B4,09,CD,21,CD,20,52,1263
  109. 1160  DATA B4,09,8D,16,6A,02,CD,21,B4,09,5A,CD,21,B4,09,8D,1545
  110. 1170  DATA 16,47,03,E8,04,00,CD,21,CD,20,83,3E,CE,01,00,74,1323
  111. 1180  DATA 0E,B4,3E,8B,1E,CE,01,CD,21,C7,06,CE,01,00,00,83,1413
  112. 1190  DATA 3E,D0,01,00,74,0E,8B,1E,D0,01,B4,3E,CD,21,C7,06,1464
  113. 1200  DATA D0,01,00,00,C3,00,00,00,00,00,00,00,00,00,00,00,404
  114.